Imports System.Xml
Imports System.Data.SqlClient
Public Class dTipoUnidad
    Public Function Existe(ByVal CodigoTunidad As Long) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoTUnidad", CodigoTunidad))
        Return (dConexion.Consultar("STORE_TblTipoUnidadBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal Descripcion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        Return dConexion.ABM("STORE_TblTipoUnidadAlta", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoTunidad As Long) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoTUnidad", CodigoTunidad))
        Return dConexion.ABM("STORE_TblTipoUnidadELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoTunidad As Long, ByVal Descripcion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoTunidad <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoTUnidad", CodigoTunidad))

        End If
        If Descripcion <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        End If
        Return dConexion.ABM("STORE_TblTipoUnidadMODIFICAR", Parametros)
    End Function
    Public Function Buscar(ByVal CodigoTunidad As Long, ByVal Descripcion As String, ByVal activo As Integer) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoTunidad <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoTunidad", CodigoTunidad))
        End If
        If Descripcion <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        End If
        Parametros.Add(New SqlParameter("@pEActivo", activo))

        Return dConexion.Consultar("STORE_TblTipoUnidadBUSCARFILTRADO", Parametros)
    End Function
    Public Function Listar() As DataSet
        Return dConexion.Consultar("STORE_TblTipoUnidadBUSCARFILTRADO", New ArrayList)
    End Function
End Class
